Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search

/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / smaltalk.lha / smalltalk-1.1.1 / stix / Xevt.st < prev next >

Wrap

Text File | 1991-09-12 | 29KB | 1,952 lines

"====================================================================== | | Copyright (C) 1990, 1991 Free Software Foundation, Inc. | Written by Steve Byrne. | | This file is part of GNU Smalltalk. | | GNU Smalltalk is free software; you can redistribute it and/or modify it | under the terms of the GNU General Public License as published by the Free | Software Foundation; either version 1, or (at your option) any later version. | | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS | FOR A PARTICULAR PURPOSE. See the GNU General Public License for more | details. | | You should have received a copy of the GNU General Public License along with | GNU Smalltalk; see the file COPYING. If not, write to the Free Software | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | ======================================================================" " | Change Log | ============================================================================ | Author Date Change | sbyrne 24 May 90 created. | " XEvent subclass: #KeyPressEvent instanceVariableNames: 'detail time root event child rootX rootY eventX eventY state sameScreen ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !KeyPressEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !KeyPressEvent methodsFor: 'accessing'! detail ^detail ! sequenceNumber ^sequenceNumber ! time ^time ! root ^self mappedId: root ! event ^self mappedId: event ! child ^self mappedId: child ! rootX ^rootX ! rootY ^rootY ! eventX ^eventX ! eventY ^eventY ! state ^state ! sameScreen ^sameScreen ! ! !KeyPressEvent methodsFor: 'private'! initFrom: aStream detail _ aStream byte. sequenceNumber _ aStream uword. time _ aStream long. root _ aStream long. event _ aStream long. child _ aStream long. rootX _ aStream word. rootY _ aStream word. eventX _ aStream word. eventY _ aStream word. state _ aStream word. sameScreen _ aStream byte. aStream skipBytes: 1 !! XEvent subclass: #KeyReleaseEvent instanceVariableNames: 'detail time root event child rootX rootY eventX eventY state sameScreen ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !KeyReleaseEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !KeyReleaseEvent methodsFor: 'accessing'! detail ^detail ! sequenceNumber ^sequenceNumber ! time ^time ! root ^self mappedId: root ! event ^self mappedId: event ! child ^self mappedId: child ! rootX ^rootX ! rootY ^rootY ! eventX ^eventX ! eventY ^eventY ! state ^state ! sameScreen ^sameScreen ! ! !KeyReleaseEvent methodsFor: 'private'! initFrom: aStream detail _ aStream byte. sequenceNumber _ aStream uword. time _ aStream long. root _ aStream long. event _ aStream long. child _ aStream long. rootX _ aStream word. rootY _ aStream word. eventX _ aStream word. eventY _ aStream word. state _ aStream word. sameScreen _ aStream byte. aStream skipBytes: 1 !! XEvent subclass: #ButtonPressEvent instanceVariableNames: 'detail time root event child rootX rootY eventX eventY state sameScreen ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !ButtonPressEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !ButtonPressEvent methodsFor: 'accessing'! detail ^detail ! sequenceNumber ^sequenceNumber ! time ^time ! root ^self mappedId: root ! event ^self mappedId: event ! child ^self mappedId: child ! rootX ^rootX ! rootY ^rootY ! eventX ^eventX ! eventY ^eventY ! state ^state ! sameScreen ^sameScreen ! ! !ButtonPressEvent methodsFor: 'private'! initFrom: aStream detail _ aStream byte. sequenceNumber _ aStream uword. time _ aStream long. root _ aStream long. event _ aStream long. child _ aStream long. rootX _ aStream word. rootY _ aStream word. eventX _ aStream word. eventY _ aStream word. state _ aStream word. sameScreen _ aStream byte. aStream skipBytes: 1 !! XEvent subclass: #ButtonReleaseEvent instanceVariableNames: 'detail time root event child rootX rootY eventX eventY state sameScreen ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !ButtonReleaseEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !ButtonReleaseEvent methodsFor: 'accessing'! detail ^detail ! sequenceNumber ^sequenceNumber ! time ^time ! root ^self mappedId: root ! event ^self mappedId: event ! child ^self mappedId: child ! rootX ^rootX ! rootY ^rootY ! eventX ^eventX ! eventY ^eventY ! state ^state ! sameScreen ^sameScreen ! ! !ButtonReleaseEvent methodsFor: 'private'! initFrom: aStream detail _ aStream byte. sequenceNumber _ aStream uword. time _ aStream long. root _ aStream long. event _ aStream long. child _ aStream long. rootX _ aStream word. rootY _ aStream word. eventX _ aStream word. eventY _ aStream word. state _ aStream word. sameScreen _ aStream byte. aStream skipBytes: 1 !! XEvent subclass: #MotionNotifyEvent instanceVariableNames: 'detail time root event child rootX rootY eventX eventY state sameScreen ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !MotionNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !MotionNotifyEvent methodsFor: 'accessing'! detail ^detail ! sequenceNumber ^sequenceNumber ! time ^time ! root ^self mappedId: root ! event ^self mappedId: event ! child ^self mappedId: child ! rootX ^rootX ! rootY ^rootY ! eventX ^eventX ! eventY ^eventY ! state ^state ! sameScreen ^sameScreen ! ! !MotionNotifyEvent methodsFor: 'private'! initFrom: aStream detail _ aStream ubyte. sequenceNumber _ aStream uword. time _ aStream long. root _ aStream long. event _ aStream long. child _ aStream long. rootX _ aStream word. rootY _ aStream word. eventX _ aStream word. eventY _ aStream word. state _ aStream word. sameScreen _ aStream byte. aStream skipBytes: 1 !! XEvent subclass: #EnterNotifyEvent instanceVariableNames: 'detail time root event child rootX rootY eventX eventY state mode focus ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !EnterNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !EnterNotifyEvent methodsFor: 'accessing'! detail ^detail ! sequenceNumber ^sequenceNumber ! time ^time ! root ^self mappedId: root ! event ^self mappedId: event ! child ^self mappedId: child ! rootX ^rootX ! rootY ^rootY ! eventX ^eventX ! eventY ^eventY ! state ^state ! mode ^mode ! focus ^focus ! ! !EnterNotifyEvent methodsFor: 'private'! initFrom: aStream detail _ aStream ubyte. sequenceNumber _ aStream uword. time _ aStream long. root _ aStream long. event _ aStream long. child _ aStream long. rootX _ aStream word. rootY _ aStream word. eventX _ aStream word. eventY _ aStream word. state _ aStream word. mode _ aStream ubyte. focus _ aStream ubyte. aStream skipBytes: 0 !! XEvent subclass: #LeaveNotifyEvent instanceVariableNames: 'detail time root event child rootX rootY eventX eventY state mode focus ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !LeaveNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !LeaveNotifyEvent methodsFor: 'accessing'! detail ^detail ! sequenceNumber ^sequenceNumber ! time ^time ! root ^self mappedId: root ! event ^self mappedId: event ! child ^self mappedId: child ! rootX ^rootX ! rootY ^rootY ! eventX ^eventX ! eventY ^eventY ! state ^state ! mode ^mode ! focus ^focus ! ! !LeaveNotifyEvent methodsFor: 'private'! initFrom: aStream detail _ aStream ubyte. sequenceNumber _ aStream uword. time _ aStream long. root _ aStream long. event _ aStream long. child _ aStream long. rootX _ aStream word. rootY _ aStream word. eventX _ aStream word. eventY _ aStream word. state _ aStream word. mode _ aStream ubyte. focus _ aStream ubyte. aStream skipBytes: 0 !! XEvent subclass: #FocusInEvent instanceVariableNames: 'detail event mode ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !FocusInEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !FocusInEvent methodsFor: 'accessing'! detail ^detail ! sequenceNumber ^sequenceNumber ! event ^self mappedId: event ! mode ^mode ! ! !FocusInEvent methodsFor: 'private'! initFrom: aStream detail _ aStream ubyte. sequenceNumber _ aStream uword. event _ aStream long. mode _ aStream ubyte. aStream skipBytes: 23 !! XEvent subclass: #FocusOutEvent instanceVariableNames: 'detail event mode ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !FocusOutEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !FocusOutEvent methodsFor: 'accessing'! detail ^detail ! sequenceNumber ^sequenceNumber ! event ^self mappedId: event ! mode ^mode ! ! !FocusOutEvent methodsFor: 'private'! initFrom: aStream detail _ aStream ubyte. sequenceNumber _ aStream uword. event _ aStream long. mode _ aStream ubyte. aStream skipBytes: 23 !! XEvent subclass: #KeymapNotifyEvent instanceVariableNames: 'keys ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !KeymapNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !KeymapNotifyEvent methodsFor: 'accessing'! keys ^keys ! ! !KeymapNotifyEvent methodsFor: 'private'! initFrom: aStream keys _ aStream getUnpaddedString: 31. aStream skipBytes: 0 !! XEvent subclass: #ExposeEvent instanceVariableNames: 'window x y width height count ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !ExposeEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !ExposeEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! window ^self mappedId: window ! x ^x ! y ^y ! width ^width ! height ^height ! count ^count ! ! !ExposeEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. window _ aStream long. x _ aStream uword. y _ aStream uword. width _ aStream uword. height _ aStream uword. count _ aStream uword. aStream skipBytes: 14 !! XEvent subclass: #GraphicsExposureEvent instanceVariableNames: 'drawable x y width height minorOp count majorOp ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !GraphicsExposureEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !GraphicsExposureEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! drawable ^self mappedId: drawable ! x ^x ! y ^y ! width ^width ! height ^height ! minorOp ^minorOp ! count ^count ! majorOp ^majorOp ! ! !GraphicsExposureEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. drawable _ aStream long. x _ aStream uword. y _ aStream uword. width _ aStream uword. height _ aStream uword. minorOp _ aStream uword. count _ aStream uword. majorOp _ aStream ubyte. aStream skipBytes: 11 !! XEvent subclass: #NoExposureEvent instanceVariableNames: 'drawable minorOp majorOp ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !NoExposureEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !NoExposureEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! drawable ^self mappedId: drawable ! minorOp ^minorOp ! majorOp ^majorOp ! ! !NoExposureEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. drawable _ aStream long. minorOp _ aStream uword. majorOp _ aStream ubyte. aStream skipBytes: 21 !! XEvent subclass: #VisibilityNotifyEvent instanceVariableNames: 'window state ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !VisibilityNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !VisibilityNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! window ^self mappedId: window ! state ^state ! ! !VisibilityNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. window _ aStream long. state _ aStream ubyte. aStream skipBytes: 23 !! XEvent subclass: #CreateNotifyEvent instanceVariableNames: 'parent window x y width height borderWidth overrideRedirect ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !CreateNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !CreateNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! parent ^self mappedId: parent ! window ^self mappedId: window ! x ^x ! y ^y ! width ^width ! height ^height ! borderWidth ^borderWidth ! overrideRedirect ^overrideRedirect ! ! !CreateNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. parent _ aStream long. window _ aStream long. x _ aStream word. y _ aStream word. width _ aStream uword. height _ aStream uword. borderWidth _ aStream uword. overrideRedirect _ aStream byte. aStream skipBytes: 9 !! XEvent subclass: #DestroyNotifyEvent instanceVariableNames: 'event window ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !DestroyNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !DestroyNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! event ^self mappedId: event ! window ^self mappedId: window ! ! !DestroyNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. event _ aStream long. window _ aStream long. aStream skipBytes: 20 !! XEvent subclass: #UnmapNotifyEvent instanceVariableNames: 'event window fromConfigure ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !UnmapNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !UnmapNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! event ^self mappedId: event ! window ^self mappedId: window ! fromConfigure ^fromConfigure ! ! !UnmapNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. event _ aStream long. window _ aStream long. fromConfigure _ aStream byte. aStream skipBytes: 19 !! XEvent subclass: #MapNotifyEvent instanceVariableNames: 'event window overrideRedirect ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !MapNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !MapNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! event ^self mappedId: event ! window ^self mappedId: window ! overrideRedirect ^overrideRedirect ! ! !MapNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. event _ aStream long. window _ aStream long. overrideRedirect _ aStream byte. aStream skipBytes: 19 !! XEvent subclass: #MapRequestEvent instanceVariableNames: 'parent window ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !MapRequestEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !MapRequestEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! parent ^self mappedId: parent ! window ^self mappedId: window ! ! !MapRequestEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. parent _ aStream long. window _ aStream long. aStream skipBytes: 20 !! XEvent subclass: #ReparentNotifyEvent instanceVariableNames: 'event window parent x y overrideRedirect ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !ReparentNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !ReparentNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! event ^self mappedId: event ! window ^self mappedId: window ! parent ^self mappedId: parent ! x ^x ! y ^y ! overrideRedirect ^overrideRedirect ! ! !ReparentNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. event _ aStream long. window _ aStream long. parent _ aStream long. x _ aStream word. y _ aStream word. overrideRedirect _ aStream byte. aStream skipBytes: 11 !! XEvent subclass: #ConfigureNotifyEvent instanceVariableNames: 'event window aboveSibling x y width height borderWidth overrideRedirect ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !ConfigureNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !ConfigureNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! event ^self mappedId: event ! window ^self mappedId: window ! aboveSibling ^self mappedId: aboveSibling ! x ^x ! y ^y ! width ^width ! height ^height ! borderWidth ^borderWidth ! overrideRedirect ^overrideRedirect ! ! !ConfigureNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. event _ aStream long. window _ aStream long. aboveSibling _ aStream long. x _ aStream word. y _ aStream word. width _ aStream uword. height _ aStream uword. borderWidth _ aStream uword. overrideRedirect _ aStream byte. aStream skipBytes: 5 !! XEvent subclass: #ConfigureRequestEvent instanceVariableNames: 'stackMode parent window sibling x y width height borderWidth valueMask ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !ConfigureRequestEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !ConfigureRequestEvent methodsFor: 'accessing'! stackMode ^stackMode ! sequenceNumber ^sequenceNumber ! parent ^self mappedId: parent ! window ^self mappedId: window ! sibling ^self mappedId: sibling ! x ^x ! y ^y ! width ^width ! height ^height ! borderWidth ^borderWidth ! valueMask ^valueMask ! ! !ConfigureRequestEvent methodsFor: 'private'! initFrom: aStream stackMode _ aStream ubyte. sequenceNumber _ aStream uword. parent _ aStream long. window _ aStream long. sibling _ aStream long. x _ aStream word. y _ aStream word. width _ aStream uword. height _ aStream uword. borderWidth _ aStream uword. valueMask _ aStream uword. aStream skipBytes: 4 !! XEvent subclass: #GravityNotifyEvent instanceVariableNames: 'event window x y ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !GravityNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !GravityNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! event ^self mappedId: event ! window ^self mappedId: window ! x ^x ! y ^y ! ! !GravityNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. event _ aStream long. window _ aStream long. x _ aStream word. y _ aStream word. aStream skipBytes: 16 !! XEvent subclass: #ResizeRequestEvent instanceVariableNames: 'window width height ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !ResizeRequestEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !ResizeRequestEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! window ^self mappedId: window ! width ^width ! height ^height ! ! !ResizeRequestEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. window _ aStream long. width _ aStream uword. height _ aStream uword. aStream skipBytes: 20 !! XEvent subclass: #CirculateNotifyEvent instanceVariableNames: 'event window place ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !CirculateNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !CirculateNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! event ^self mappedId: event ! window ^self mappedId: window ! place ^place ! ! !CirculateNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. event _ aStream long. window _ aStream long. aStream long. place _ aStream ubyte. aStream skipBytes: 15 !! XEvent subclass: #CirculateRequestEvent instanceVariableNames: 'parent window place ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !CirculateRequestEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !CirculateRequestEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! parent ^self mappedId: parent ! window ^self mappedId: window ! place ^place ! ! !CirculateRequestEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. parent _ aStream long. window _ aStream long. aStream ulong. place _ aStream ubyte. aStream skipBytes: 15 !! XEvent subclass: #PropertyNotifyEvent instanceVariableNames: 'window atom time state ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !PropertyNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !PropertyNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! window ^self mappedId: window ! atom ^self mappedId: atom ! time ^time ! state ^state ! ! !PropertyNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. window _ aStream long. atom _ aStream long. time _ aStream long. state _ aStream ubyte. aStream skipBytes: 15 !! XEvent subclass: #SelectionClearEvent instanceVariableNames: 'time owner selection ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !SelectionClearEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !SelectionClearEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! time ^time ! owner ^self mappedId: owner ! selection ^self mappedId: selection ! ! !SelectionClearEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. time _ aStream long. owner _ aStream long. selection _ aStream long. aStream skipBytes: 16 !! XEvent subclass: #SelectionRequestEvent instanceVariableNames: 'time owner requestor selection target property ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !SelectionRequestEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !SelectionRequestEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! time ^time ! owner ^self mappedId: owner ! requestor ^self mappedId: requestor ! selection ^self mappedId: selection ! target ^self mappedId: target ! property ^self mappedId: property ! ! !SelectionRequestEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. time _ aStream long. owner _ aStream long. requestor _ aStream long. selection _ aStream long. target _ aStream long. property _ aStream long. aStream skipBytes: 4 !! XEvent subclass: #SelectionNotifyEvent instanceVariableNames: 'time requestor selection target property ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !SelectionNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !SelectionNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! time ^time ! requestor ^self mappedId: requestor ! selection ^self mappedId: selection ! target ^self mappedId: target ! property ^self mappedId: property ! ! !SelectionNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. time _ aStream long. requestor _ aStream long. selection _ aStream long. target _ aStream long. property _ aStream long. aStream skipBytes: 8 !! XEvent subclass: #ColormapNotifyEvent instanceVariableNames: 'window colormap new state ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !ColormapNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !ColormapNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! window ^self mappedId: window ! colormap ^self mappedId: colormap ! new ^new ! state ^state ! ! !ColormapNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. window _ aStream long. colormap _ aStream long. new _ aStream byte. state _ aStream ubyte. aStream skipBytes: 18 !! XEvent subclass: #ClientMessageEvent instanceVariableNames: 'format window type ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !ClientMessageEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !ClientMessageEvent methodsFor: 'accessing'! format ^format ! sequenceNumber ^sequenceNumber ! window ^self mappedId: window ! type ^self mappedId: type ! ! !ClientMessageEvent methodsFor: 'private'! initFrom: aStream format _ aStream ubyte. sequenceNumber _ aStream uword. window _ aStream long. type _ aStream long. aStream skipBytes: 20 !! XEvent subclass: #MappingNotifyEvent instanceVariableNames: 'request keycode count ' classVariableNames: '' poolDictionaries: '' category: 'X hacking' ! !MappingNotifyEvent class methodsFor: 'instance creation'! newFrom: aStream ^self new initFrom: aStream !! !MappingNotifyEvent methodsFor: 'accessing'! sequenceNumber ^sequenceNumber ! request ^request ! keycode ^keycode ! count ^count ! ! !MappingNotifyEvent methodsFor: 'private'! initFrom: aStream aStream ubyte. sequenceNumber _ aStream uword. request _ aStream ubyte. keycode _ aStream byte. count _ aStream ubyte. aStream skipBytes: 25 !!